% V20210224 - 8.7.2 Selectable Listview

INCLUDE "GW.bas"

mypage = GW_NEW_PAGE()

ARRAY.LOAD lang$[], "English>EN", "French>FR", "Spanish>ES", "German>DE"

GW_ADD_TEXT(mypage, "Pick a language:")

GW_ADD_LISTVIEW(mypage, lang$[])

GW_RENDER(mypage)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"